MODULE md1_global_consts

   USE md1_global_types
   IMPLICIT NONE
   PUBLIC   

!==============================================================================
! Program-wide global variables |
!===============================!

   ! We select here the REAL and INTEGER precisions
   !   INTEGER, PARAMETER :: md1_INTK  = SELECTED_INT_KIND(9),           &
   !                         md1_REALK = SELECTED_REAL_KIND(XXX) 
   ! Use standard integers and REAL*8 double precision floats
   INTEGER, PARAMETER :: INTK  = KIND(1),                         &
                         REALK = KIND(1D0)

    ! Unit numbers for IO
   INTEGER(INTK), SAVE :: IO1 = 888
   INTEGER(INTK), SAVE :: IO2 = 889
   INTEGER(INTK), SAVE :: IO3 = 890

!==============================================================================
! Global parameters |
!===================!

   REAL(REALK), PARAMETER :: zero   = 0.0_REALK,                        &
                             one    = 1.0_REALK,                        &
                             two    = 2.0_REALK,                        &
                             three  = 3.0_REALK,                        &
                             four   = 4.0_REALK,                        &
                             half   = 0.5_REALK,                        &
                             PI     = 3.14159265358979323846264_REALK,  &
                             ROOTPI = 1.77245385090552_REALK,           &
                             ROOT2  = 1.41421356237310_REALK,           &
                             ROOT3  = 1.73205080756888_REALK,           &
                             IROOT2 = 0.707106781186548_REALK,          &
                             LOG_10 = 2.30258509299405_REALK
 
!!------------------------------------------------------------------------------

END MODULE md1_global_consts
